home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / trek_quotes.lha / TrekQuotes2 < prev    next >
Text File  |  1995-10-08  |  5KB  |  81 lines
  1. /**************************************************************************\
  2.             $VER: Trek Quotes, v2.2 (8-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring
  6.  
  7.  c1   = a    /* a Color of Line # 1 in Quote.                   (ANY MCI) */
  8.  c2   = b    /* b Color of Author Line of Quote.                (ANY MCI) */
  9.  c.1  = 1    /* 1 Color of Left Moon.                           (ANY MCI) */
  10.  c.2  = 8    /* 8 Color of Right Moon.                          (ANY MCI) */
  11.  c.3  = 3    /* 3 Color of Small Stars, LEFT  of Planet.        (ANY MCI) */
  12.  c.4  = 3    /* 3 Color of Small Stars, RIGHT of Planet.        (ANY MCI) */
  13.  c.5  = a    /* a Color of Large Stars, LEFT  of Planet.        (ANY MCI) */
  14.  c.6  = a    /* a Color of Large Stars, RIGHT of Planet.        (ANY MCI) */
  15.  c.7  = 4    /* 4 Color of Planetary Water.              (0 thru 7 ONLY!) */
  16.  c.8  = f    /* f Color of Polar Ice Cap.                       (ANY MCI) */
  17.  c.9  = b    /* b Color of LEFT  Continent.                     (ANY MCI) */
  18.  c.10 = d    /* d Color of RIGHT Continent.                     (ANY MCI) */
  19. rand  = 1    /* Use Random Planet Settings?                 (0=No, 1=Yes) */
  20. delay = 0    /* Before Continuing To BBS.                 (0 thru 9 ONLY! */
  21.  
  22. total = 130  /* Total Number of Trek Quotes On File.          (No Limit!) */
  23. size  = 150  /* Maximum Length of Longest Quote Line.        (Rounded UP) */
  24. build = 0    /* "1" will RePack the ".dat" file.      (See README! File!) */
  25.  
  26. if build=1 then signal MAKE
  27. if rand=1 then do ; do i=1 to 10 ; call RMCI(16)
  28.     c.i=c ; end i ; call RMCI(7) ; c.7=c ; end
  29. z7='z'||c.7 ; a='c' ; do i=1 to 10 ; c.i=a||c.i ; end i
  30. call ENTERPRISE ; a=random(1,total,time('s')) ; ptr=(a*size)-size
  31. call open(f1,'pfiles:TrekQuotes2.dat','r') ; call seek(f1,ptr,'b')
  32. quote=readch(f1,size) ; call close(f1) ; quote=strip(quote,'b',d2c(0))
  33. parse var quote l.1'|'l.2'|'l.3'|'l.4'|'l.5 ; ctr=0
  34. do i=1 to 5 ; if l.i~='' then ctr=ctr+1 ; end i
  35. do i=1 to ctr ; c3=c1 ; if i=ctr then c3=c2
  36. tr 'c'c3||center(l.i,73) ; end i ; call PLANET ; exit
  37.  
  38. ENTERPRISE:
  39.     tr 'f1Ccf.Cc6To cbboldly c6go where no cfone c6has gone before...Ccf.'
  40.     tr '    cb.Ccf.C*Cc6.Ccf.C.   cb.'
  41.     tr '  cf.   .    c7▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄c9▄   cb.Ccf.  c7▄▄Ccf.Cc6.'
  42.     tr 'Ccf.Cc7▀z7c8══c0NCCc8-c01701c8══════════z0c9█▀ c7▄▄▄▄▄▄▄▄z7c8...└──┘...z0c7▄▄▄▄▄▄▄▄▄Ccf.'
  43.     tr '   c6.Cc7▀▄ ▀▄C▄▀ ▄▀▀▀▀▀█z7c8..........z0c7█▀▀▀▀▀▀▀'
  44.     tr 'Ccb.   cf.   c7▄▄▄▄▄▄▄▄█▄▄█▄▄▄█▄▄█   c6.Cce▀▀Ccf.Cc6.'
  45.     tr 'Ccf*Cc7▀▀█z7c8■.■.■.■.■.■.■.■z0c7█cb■Ccf.Ccb.   c7.'
  46.     tr '   .C.    c6.Ccf.Ccb.'
  47.   return
  48.  
  49. PLANET:
  50.     tr c.1'▄  'c.3'.   'c.5'*  'c.3'.   .     .   'c.7'▄▄▄▄'c.8'▄▄▄▄▄▄▄▄▄▄▄▄'c.7'▄▄▄▄▄▄▄  'c.4'.    'c.6'*  'c.4'.   .   'c.2'▄▄    'c.4'.'
  51.     tr c.1'██▄  'c.3'.      .   .   'c.7'▄▄▄██████'c.8||z7'▀▀▀███▀▀▀z0'c.7'██████████▄▄▄    'c.4'.  . .  'c.2'▄████▄'
  52.     tr c.1'████▄  'c.3'.     'c.5'*  'c.9'▄▄▄████'z7'▄z0'c.7'█████████████'c.10||z7'▄▄▄▄████▄▄▄z0'c.7'████▄▄▄    'c.6'*  'c.4'.'c.2'▀████▀   'c.4'.'
  53.     tr c.1'████▀  'c.3'. .  'c.7'▄'c.9'▄▄██████████'c.7'█████████████'c.10||z7'▀██████████'c.7'███'c.10'▄▄▄█z0'c.7'▄▄▄    'c.4'. 'c.2'▀▀'
  54.     tr c.1'██▀ 'c.3'. 'c.5'* 'c.7'▄▄▄███'c.9'██████████'z7'▀z0'c.7'█████████████'c.10||z7'▄███████▀'c.7'█'c.10'▄▄███████▄z0'c.7'██▄▄▄ 'c.4'.    . 'c.6'*'
  55.     tr c.1'▀ 'c.3'. . 'c.7'▄████████'c.9'███████'z7'▀z0'c.7'██████████████'c.10||z7'▀▀▀▀'c.7'██'c.10'▀███████████▄z0'c.7'████████▄  'c.4'.'
  56.     tr c.3'  .  'c.7'███████████'c.9||z7'▀█▀z0'c.7'██████████████████████████'c.10||z7'▀█████▀▀▀▀z0'c.7'███████████  'c.6'*   'c.4'.'
  57.     tr 'C'z7||c.8' [s'delay']         TrekQuotes, v2.2 by Dotoran!        Quote # 'left(a,3)' z0'
  58.     do i=delay to 1 by -1 ; se 'u'z7||i'w1<1' ; end i ; se 'z0'
  59.   return
  60.  
  61. RMCI:
  62.     parse arg hi ; a='0123456789abcdef'
  63.     b=random(1,hi,time('s')) ; c=substr(a,b,1)
  64.   return
  65.  
  66. MAKE:
  67.     tr 'f1n5cfRePacking cb"caTrekQuotes2.datcb" cfNow:'
  68.     call open(f1,'pfiles:TrekQuotes2.txt','r') ; se 'n1cfReading: k1'
  69.     do i=1 to total ; l.i=readln(f1) ; se '>' ; end i ; tr 'k0c9Done.'
  70.     call close(f1) ; call open(f1,'pfiles:TrekQuotes2.dat','w')
  71.     se 'n1cfPacking: k1' ; do i=1 to total ; a=size-length(l.i)
  72.     b=copies(d2c(0),a) ; call writech(f1,l.i) ; call writech(f1,b) ; se '>'
  73.     end i ; call close(f1) ; tr 'k0c9Done.n1'
  74.     tr 'c6Reset cbBUILD c6to cf"cd0cf" c6Now.' ; exit
  75.  
  76. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  77.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  78.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  79. /** Last Edited: 8-Oct-95 *************************************************\
  80. \****************************************** Frontiers BBS (716)/823-9892 **/
  81.